MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00974_Gestion des Graphs .ls

Text File | 1995-08-06 | 3.6 KB | 153 lines

on PutVisibSprite Para, Chaine
  set Pz to 1
  repeat with AccuA = 0 to length(Chaine) / 3
    set Piste to value(chars(Chaine, Pz, Pz + 1))
    puppetSprite(Piste, 1)
    set the visible of sprite Piste to Para
    set Pz to Pz + 3
  end repeat
end

on PutEtatSprite Para, Chaine
  set Pz to 1
  repeat with AccuA = 0 to length(Chaine) / 3
    set Piste to value(chars(Chaine, Pz, Pz + 1))
    puppetSprite(Piste, Para)
    set Pz to Pz + 3
  end repeat
end

on FalsePisteTest Piste
  set NumCast to the castNum of sprite Piste
  if NumCast < 1 then
    return 0
  end if
  set TypeCast to the castType of cast NumCast
  if TypeCast = #empty then
    return 0
  end if
  puppetSprite(Piste, 0)
  return 1
end

on FalseReste
  repeat with Piste = 1 to 42
    puppetSprite(Piste, 0)
  end repeat
  puppetSprite(47, 0)
end

on TrueReste
  repeat with Piste = 1 to 42
    puppetSprite(Piste, 1)
  end repeat
end

on ClearPictCast AccuA
  if stringp(AccuA) then
    set AccuA to the number of cast AccuA
  end if
  set AccuC to the picture of cast "N_CastEfface"
  set the picture of cast AccuA to AccuC
end

on SetCastSprite Piste, NumCast
  set the castNum of sprite Piste to NumCast
end

on SetNomCastSprite Piste, NomCast
  set the castNum of sprite Piste to the number of cast NomCast
end

on EffaceSprite NumSprite
  global CastEfface
  set the castNum of sprite NumSprite to CastEfface
end

on EffaceText NumSprite
  set the castNum of sprite NumSprite to -1
end

on FalseSprBarrette
  global SprFondBar, SprFondBarII, SprBoutBar, SprRollOver
  EffaceTexteRoll()
  EffacePictRoll()
  puppetSprite(SprFondBar, 0)
  puppetSprite(SprFondBarII, 0)
  puppetSprite(SprBoutBar, 0)
  puppetSprite(SprRollOver, 0)
  SetDcBarrette(0)
end

on EffaceTexteRoll
  global SprRollOver
  set the castNum of sprite SprRollOver to the number of cast "FondTexteRoll"
end

on EffacePictRoll
  global SprBoutBar, CastEfface
  set the castNum of sprite SprBoutBar to CastEfface
end

on AnimSprite NumSprite, CastDepart, Periode, Champs
  if stringp(CastDepart) then
    set CastDepart to the number of cast CastDepart
  end if
  repeat with AccuA = 1 to the number of words in Champs
    set the castNum of sprite NumSprite to CastDepart + value(word AccuA of Champs)
    updateStage()
    WaitTicks0(Periode)
  end repeat
end

on AnimSpriteCast NumSprite, Periode, Champs
  set listPara to list()
  set LenPara to the number of words in Champs
  repeat with compt = 1 to LenPara
    add(listPara, the number of cast word compt of Champs)
  end repeat
  repeat with compt = 1 to LenPara
    set the castNum of sprite NumSprite to getAt(listPara, compt)
    updateStage()
    WaitTicks0(Periode)
  end repeat
end

on PuppetTransit TypeTransit, time, ChunkSize, ChangeArea
  global glQTmemo, DcTransit
  if getAt(glQTmemo, 1) <> 0 then
    exit
  end if
  set DcTransit to 1
  puppetTransition(TypeTransit, time, ChunkSize, ChangeArea)
end

on SetTransit AccuA
  global listChampsTransit
  repeat with AccuB = 1 to the number of words in AccuA
    add(listChampsTransit, value(word AccuB of AccuA))
  end repeat
end

on SetTransitM AccuA
  global listChampsTransit
  repeat with AccuE = 0 to (the number of words in AccuA - 1) / 2
    set AccuH to (AccuE * 2) + 1
    set AccuG to label(word AccuH of AccuA)
    repeat with AccuF = 0 to value(word AccuH + 1 of AccuA) - 1
      set CC to AccuG + AccuF
      add(listChampsTransit, AccuG + AccuF)
    end repeat
  end repeat
end

on InitlistTransit
  global listChampsTransit
  set listChampsTransit to list()
end

on GestTransit
  global listChampsTransit, DcTransit
  set DcTransit to getOne(listChampsTransit, the frame) <> 0
end